
100 ON INT(RND)+1 GOSUB 120,130
110 GOTO 100
120 CALL VCHAR(INT(RND*24)+1,INT(RND*32)+1,INT(RND*128)+1,INT(RND*768)+1):: RETURN
130 CALL HCHAR(INT(RND*24)+1,INT(RND*32)+1,INT(RND*128)+1,INT(RND*768)+1):: RETURN
